home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 12 C64 Telecom / NOVA42.SFX / prog menu (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-02-12  |  747 b   |  21 lines
  1. 5 POKE45,PEEK(174):POKE46,PEEK(175):CLR
  2. 10 DV=PEEK(186):IFDV<8ORDV>16THENDV=8
  3. 20 OPEN15,DV,15:ML=38400:SL=52608:DT=PEEK(ML+87)+256*PEEK(ML+88)
  4. 25 DN$="":DIMF$(16)
  5. 30 PRINT"[147] [211]ELECT PROGRAM:":OPEN1,DV,0,"$:NOVA.*":GET#1,A$,A$:SYSML+54:MX=0
  6. 40 SYSML+54:IFRIGHT$(Z$,1)="."ORRIGHT$(Z$,4)="FREE"THEN80
  7. 45 GETA$:IFA$="[133]"THENCLOSE1:PRINT:GOTO110
  8. 46 IFP=0THENP=VAL(A$)
  9. 47 IFP>0ANDMX>=PTHENPRINT:GOTO101
  10. 50 F$="":MX=MX+1:FORI=12TO22:A$=MID$(Z$,I,1):IFA$=CHR$(34)THENI=22:GOTO70
  11. 60 F$(MX)=F$(MX)+A$
  12. 70 NEXT:PRINT" "F$(MX)"[160]":GOTO40
  13. 80 CLOSE1:PRINT" [210]ETURN TO [206]OVATERM[160]":MX=MX+2
  14. 90 POKE780,1:POKE781,2:POKE782,MX:POKEDT+37,1:SYSSL+27:P=PEEK(780):IFP=MXTHEN110
  15. 101 PRINT" [204]OADING NOVA."F$(P)
  16. 102 OPEN2,DV,0,"NOVA."+F$(P):INPUT#15,E:CLOSE2:IFE>19THEN30
  17. 105 LOAD"NOVA."+F$(P),DV
  18. 110 OPEN2,DV,0,"NOVATERM ?.?*":INPUT#15,E:CLOSE2:IFE>19THENEND
  19. 115 PRINT" [204]OADING [206]OVATERM..."
  20. 120 POKE787,DV:CLR:LOAD"NOVATERM ?.?*",PEEK(787)
  21.